Teach Your Children: Road Construction Ahead/Teach Your Children: Road Construction Ahead.iso/pc/rca/road.dxr/00117_culvertButton.ls

Text File | 1996-07-17 | 333 b | 14 lines

global gRollAnimButton, gCulvertObject

on mouseDown
  if not objectp(gRollAnimButton) then
    startBuffering()
    if the task of gCulvertObject = EMPTY then
      if buttonHandler() then
        arrowButton(gCulvertObject, the name of cast the castNum of sprite the clickOn)
      end if
    end if
    flushBuffer()
  end if
end